Imports System.Data

Partial Class news
    Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            If Not Request.QueryString("id") Is Nothing Then
                Newslist1.Visible = False
            End If
        End If


        Dim imgPageSubHeader As Image = Me.Master.FindControl("imgPageSubHeader")
        If Request.QueryString("id") Is Nothing Then
            imgPageSubHeader.ImageUrl = "/uploadedImages/News/Lang/news_news.jpg"
            imgPageSubHeader.Visible = False
        End If

        Dim lblCustomTitle As Label = Me.Master.FindControl("lblCustomTitle")
        lblCustomTitle.Text = "News"
    End Sub

End Class
